home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 1 / Meeting Pearls Vol 1 (1994).iso / installed_progs / comm / ums / user.lha / User / rexx / CleanUMS.rexx next >
Encoding:
OS/2 REXX Batch file  |  1993-11-03  |  499 b   |  27 lines
  1. /* instruct the default UMS server to physically remove deleted messages */
  2.  
  3. libname = "ums.library"
  4.  
  5. if ~show("L", libname) then do
  6.   if ~addlib(libname, 0, -210, 8) then do
  7.     say libname "not found!"
  8.     exit
  9.   end
  10. end
  11.  
  12. UMSERR_ok     = 0
  13. UMSERR_noWork = 106
  14.  
  15. say "cleaning message base..."
  16. err = CleanUMS()
  17. if err = UMSERR_ok then do
  18.   say "successful."
  19.   exit 0
  20. end; else if err = UMSERR_noWork then do
  21.   say "nothing to do."
  22.   exit 5
  23. end; else do
  24.   say "failed. UMSErr #" || err
  25.   exit 20
  26. end
  27.